Những câu hỏi liên quan
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
20 tháng 10 2019 lúc 4:27

Đáp án đúng : D

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
11 tháng 9 2018 lúc 6:05

Đáp án đúng : C

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
28 tháng 5 2018 lúc 4:07

Đáp án đúng : B

Bình luận (0)
Nguyễn Ngọc Quỳnh Trang
Xem chi tiết
Trần Mai Thảo
Xem chi tiết
Minh Lệ
22 tháng 3 2023 lúc 23:40

a/ var s: string;

b/ readln(s);

c/ write(length(s));

d/ for i:=1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]);

Bình luận (0)
Minh Hiếu Vũ
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 10 2021 lúc 23:58

Không có câu nào đúng

Bình luận (0)
Minh Hiếu Vũ
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:23

Không có câu nào đúng

Bình luận (0)
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
7 tháng 10 2018 lúc 12:12

Var a: string;

  i, Dem: integer;

Begin

 writeln(‘nhap xau:’);

 Readln(a);

 Dem:=0;

 For i:=1 to length(a) do

 If (‘0’<=a[i]) and (a[i]<=’9’) then Dem:= Dem+1;

 Writeln(Dem);

 Readln

End.

Bình luận (0)
WeSe Trung
Xem chi tiết